library(sf)
library(plotly)
library(leaflet)
library(crosstalk)
boroughs<- st_read("http://services5.arcgis.com/GfwWNkhOj9bNBqoJ/arcgis/rest/services/nybb/FeatureServer/0/query?where=1=1&outFields=*&outSR=4326&f=geojson")
boroughs$x <- seq(1:5)
boroughs$y <- seq(2,10,2)
boroughs_centroids <- st_transform(st_centroid(boroughs),crs = 4326)
sd_boroughs <- SharedData$new(boroughs_centroids)
test <- bscols(widths=c(3, NA, NA),
list(filter_slider("x", "X Value", sd_boroughs, ~x, step=1, round=-1, sep=""),
filter_slider("y", "Y Value", sd_boroughs, ~y, step=1, round=1)),
leaflet(sd_boroughs) %>%
addProviderTiles(providers$CartoDB.Positron) %>%
addPolygons(data=st_transform(boroughs, crs=4326),color = "#444444", weight = 1,
smoothFactor = 0.5,
opacity = 1.0,
fillOpacity = 0.5,
fillColor = ~colorQuantile("Greens", x)(x),
highlightOptions = highlightOptions(color = "white", weight = 2)) %>%
addCircleMarkers(radius=5, stroke=TRUE, color="yellow", weight=1,fillColor = "#03F",
opacity=1,fillOpacity=1,popup=~BoroName),
plot_ly(sd_boroughs, x = ~x, y = ~y) %>%
add_markers(alpha = 0.5,text = ~paste('Borough: ', BoroName)) %>%
#hoverinfo = 'text',
highlight("plotly_hover"))
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCmF1dGhvcjogTWlrZSBUcmVnbGlhCi0tLQoKCgpgYGB7ciwgZWNobz1UUlVFLCBtZXNzYWdlPUZBTFNFLCBlcnJvcj1GQUxTRSwgd2FybmluZz1GQUxTRSwgcmVzdWx0cz0naGlkZSd9CmxpYnJhcnkoc2YpCmxpYnJhcnkocGxvdGx5KQpsaWJyYXJ5KGxlYWZsZXQpCmxpYnJhcnkoY3Jvc3N0YWxrKQoKCmJvcm91Z2hzPC0gc3RfcmVhZCgiaHR0cDovL3NlcnZpY2VzNS5hcmNnaXMuY29tL0dmd1dOa2hPajliTkJxb0ovYXJjZ2lzL3Jlc3Qvc2VydmljZXMvbnliYi9GZWF0dXJlU2VydmVyLzAvcXVlcnk/d2hlcmU9MT0xJm91dEZpZWxkcz0qJm91dFNSPTQzMjYmZj1nZW9qc29uIikKCmJvcm91Z2hzJHggPC0gc2VxKDE6NSkKYm9yb3VnaHMkeSA8LSBzZXEoMiwxMCwyKQoKYGBgCgoKYGBge3IsIGVjaG89VFJVRSwgbWVzc2FnZT1GQUxTRSwgZXJyb3I9RkFMU0UsIHdhcm5pbmc9RkFMU0UsIHJlc3VsdHM9J2hpZGUnfQpib3JvdWdoc19jZW50cm9pZHMgPC0gc3RfY2VudHJvaWQoYm9yb3VnaHMpCgpzZF9ib3JvdWdocyA8LSBTaGFyZWREYXRhJG5ldyhib3JvdWdoc19jZW50cm9pZHMpCgp0ZXN0IDwtIGJzY29scyh3aWR0aHM9YygzLCBOQSwgTkEpLAogICAgICAgICAgICAgICBsaXN0KGZpbHRlcl9zbGlkZXIoIngiLCAiWCBWYWx1ZSIsIHNkX2Jvcm91Z2hzLCB+eCwgc3RlcD0xLCByb3VuZD0tMSwgc2VwPSIiKSwKICAgICAgICAgICAgICAgICAgICBmaWx0ZXJfc2xpZGVyKCJ5IiwgIlkgVmFsdWUiLCBzZF9ib3JvdWdocywgfnksIHN0ZXA9MSwgcm91bmQ9MSkpLAogICAgICAgICAgICAgIGxlYWZsZXQoc2RfYm9yb3VnaHMpICU+JSAKICAgICAgICAgICAgICBhZGRQcm92aWRlclRpbGVzKHByb3ZpZGVycyRDYXJ0b0RCLlBvc2l0cm9uKSAlPiUKICAgICAgICAgICAgICAgIGFkZFBvbHlnb25zKGRhdGE9c3RfdHJhbnNmb3JtKGJvcm91Z2hzLCBjcnM9NDMyNiksY29sb3IgPSAiIzQ0NDQ0NCIsIHdlaWdodCA9IDEsIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgc21vb3RoRmFjdG9yID0gMC41LAogICAgICAgICAgICAgICAgICAgICAgICAgICAgb3BhY2l0eSA9IDEuMCwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICBmaWxsT3BhY2l0eSA9IDAuNSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgIGZpbGxDb2xvciA9IH5jb2xvclF1YW50aWxlKCJHcmVlbnMiLCB4KSh4KSwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICBoaWdobGlnaHRPcHRpb25zID0gaGlnaGxpZ2h0T3B0aW9ucyhjb2xvciA9ICJ3aGl0ZSIsIHdlaWdodCA9IDIpKSAlPiUgCiAgICAgICAgICAgICAgICAgYWRkQ2lyY2xlTWFya2VycyhyYWRpdXM9NSwgc3Ryb2tlPVRSVUUsIGNvbG9yPSJ5ZWxsb3ciLCB3ZWlnaHQ9MSxmaWxsQ29sb3IgPSAiIzAzRiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBvcGFjaXR5PTEsZmlsbE9wYWNpdHk9MSxwb3B1cD1+Qm9yb05hbWUpLAogICAgICAgICAgICAgIHBsb3RfbHkoc2RfYm9yb3VnaHMsIHggPSB+eCwgeSA9IH55KSAlPiUgCiAgICAgICAgICAgICAgYWRkX21hcmtlcnMoYWxwaGEgPSAwLjUsdGV4dCA9IH5wYXN0ZSgnQm9yb3VnaDogJywgQm9yb05hbWUpLAogICAgICAgICAgICAgICAgICAgICAgICAgIG9wYWNpdHlEaW09Z2V0T3B0aW9uKCJvcGFjaXR5RGltIiwgIDAuNSkpICU+JQoKICAgICAgICAgICAgICAjaG92ZXJpbmZvID0gJ3RleHQnLAogICAgICAgICAgICAgIGhpZ2hsaWdodCgicGxvdGx5X2hvdmVyIikpCmBgYAoKYGBge3IsIGVjaG89VFJVRSwgbWVzc2FnZT1GQUxTRSwgZXJyb3I9RkFMU0UsIHdhcm5pbmc9RkFMU0V9CnRlc3QKYGBgCgo8YnIgLz4KPGJyIC8+Cg==